home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / misc / Hunk.lha / Hunk / Hoppers / Libnix.hop < prev    next >
Text File  |  1998-02-14  |  1KB  |  34 lines
  1. ;*************************************************************************
  2. ;** Libnix v1.0 DIVU/MODU for OS2.0+                                    **
  3. ;** Contributor: L.Lucius                               Sept 23rd 1995  **
  4. ;** Modified for HOp:   Thomas Richter  (thor)          Nov  1st  1997  **
  5. ;** Function:    Modify 68000 math routines to use 68020+ instructions. **
  6. ;*************************************************************************
  7.  
  8.  
  9. ;*************************************************************************
  10. ;
  11. ; DIVU/MODU
  12. ;
  13. #match
  14. #code
  15. 4CEF 0003 0004                  ;   MOVEM.L     0004(A7),D0-D1
  16. 610A                            ;   BSR.B       0012
  17. 2001                            ;   MOVE.L      D1,D0
  18. 4E75                            ;   RTS
  19. 4CEF 0003 0004                  ;   MOVEM.L     0004(A7),D0-D1
  20. 2079 0000 0000                  ;   MOVEA.L     00000000,A0
  21. 4EE8 FF64                       ;   JMP         FF64(A0)
  22. ;
  23. ;
  24. #replace
  25. 4CEF 0003 0004                  ;   MOVEM.L     0004(A7),D0-D1
  26. 610A                            ;   BSR.B       0012
  27. 2001                            ;   MOVE.L      D1,D0
  28. 4E75                            ;   RTS
  29. 4CEF 0003 0004                  ;   MOVEM.L     0004(A7),D0-D1
  30. 4C41 0001                       ;   DIVUL.L     D1,D1:D0
  31. 4E75                            ;   RTS
  32. #end
  33.  
  34.